home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Nordlicht Spiele / Nordlicht Spiele 05-04 (19xx)(Nordlicht)(DE)(PD).zip / Nordlicht Spiele 05-04 (19xx)(Nordlicht)(DE)(PD).adf / IQ-Test (.txt) < prev    next >
AmigaBASIC Source Code  |  1996-12-24  |  12KB  |  451 lines
  1. start:
  2.   SCREEN 1,640,250,3,2
  3.   WINDOW 1,"Intelligenztest by JK & TL",,6,1
  4.   PALETTE 4,1,0.13,0.93
  5.   PALETTE 5,0.53,0.8,0
  6.   PALETTE 6,0.8,0.6,0.53
  7.   COLOR 3,2:LOCATE 6,34
  8.   PRINT "IQ-Test":LOCATE 8,36
  9.   PRINT "by":LOCATE 10,28
  10.   PRINT "Jörg Karisch (Eagle)":LOCATE 12,28
  11.   PRINT "with some ideas from":LOCATE 14,28
  12.   PRINT "T(ohne h)orsten Lang":LOCATE 16,23
  13.   PRINT "for the new PublicDomain-Reihe":LOCATE 18,29
  14.   PRINT "date:27-29.08.1988":LOCATE 22,55
  15.   PRINT "Jörg Karisch":LOCATE 24,55
  16.   PRINT "Reutersbrunnenstr.47":LOCATE 26,55
  17.   PRINT "8500 Nürnberg 80":COLOR 1,2:LOCATE 22,36
  18.   PRINT "(c) Copyright by : "
  19.   FOR i=1 TO 55
  20.     FOR j=0 TO 6
  21.       COLOR j,2:LOCATE 10,41:PRINT "(Eagle)"
  22.       LOCATE 14,29:PRINT "(ohne h)"
  23.     NEXT j
  24.   NEXT i
  25.   CLS    
  26. weiter:
  27.   x=0:y=0:t=0:q=0
  28.   COLOR 3,2:LOCATE 2,5
  29.   PRINT "Willkommen beim Intelligenztest":FOR i=1 TO 3000:NEXT i
  30.   COLOR 1,2:LOCATE 4,5:PRINT "Der Computer stellt Ihnen nun nacheinander einige Fragen."
  31.   LOCATE 6,5:PRINT "Darauf müssen Sie diese in dem angegebenen Bereich"
  32.   LOCATE 8,5:PRINT "möglichst kurz und genau beantworten.Sie erhalten pro Frage"
  33.   LOCATE 10,5:PRINT "40 Sekunden Zeit,die (richtige ?) Antwort einzugeben."
  34.   LOCATE 12,5:PRINT "Zum Schluß des 18-Fragen-Tests zeigt Ihnen der Computer die richtigen"
  35.   LOCATE 14,5:PRINT "Lösungen und wie Ihre Bewertung ausfällt."
  36.   FOR i=1 TO 100
  37.     FOR j=0 TO 6
  38.       COLOR j,2:LOCATE 18,10:PRINT "V I E L   S P A S S  ! !"
  39.       LOCATE 22,5:PRINT "(wenn gelesen,bitte Tastendruck !)"
  40.       GOSUB warte
  41.     NEXT j
  42.   NEXT i
  43. Haupt:                   
  44.   ON TIMER(40) GOSUB Zeitum
  45.   IF t=0 GOTO Haupt1  
  46.   IF z$=a$ OR z$=b$ OR z$=c$ THEN x=x+1:GOTO Haupt1
  47.   y=y+1
  48. Haupt1:
  49.   t=t+1
  50.   IF t=2 GOTO frag2
  51.   IF t=3 GOTO frag3
  52.   IF t=4 GOTO frag4
  53.   IF t=5 GOTO frag5
  54.   IF t=6 GOTO frag6
  55.   IF t=7 GOTO frag7
  56.   IF t=8 GOTO frag8
  57.   IF t=9 GOTO frag9
  58.   IF t=10 GOTO frag10
  59.   IF t=11 GOTO frag11
  60.   IF t=12 GOTO frag12
  61.   IF t=13 GOTO frag13
  62.   IF t=14 GOTO frag14
  63.   IF t=15 GOTO frag15
  64.   IF t=16 GOTO frag16
  65.   IF t=17 GOTO frag17
  66.   IF t=18 GOTO frag18
  67.   IF t=19 GOTO Haupt2
  68.   GOTO frag1   
  69. Haupt2:
  70.   CLS
  71.   COLOR 3,2:LOCATE 5,5:PRINT "E N D E  des Frageteils"
  72.   COLOR 1,2:LOCATE 7,5:PRINT "Falls Sie nun die Auflösungen der Fragen wünschen, geben Sie ":LOCATE 9,5
  73.   PRINT "nachfolgend <ja> ein .":LOCATE 11,5
  74.   PRINT "Wenn Sie Ihre Auswertung gleich wollen, geben Sie <nein> ein."
  75.   COLOR 4,2:LOCATE 14,5:PRINT "Eingabe :"
  76.   COLOR 1,2:LOCATE 14,15:INPUT g$
  77.   t=0:p=x:n=y
  78.   IF g$="ja" GOTO aufloes
  79.   IF g$="nein" GOTO auswertung
  80.   IF g$<>"ja"OR g$<>"nein" GOTO Haupt2  
  81. frag1:
  82.   t=1:GOSUB frage
  83.   PRINT "Wenn Sie abends um 20 Uhr zu Bett gehen und den Wecker so":LOCATE 7,4
  84.   PRINT "einstellen, daß Sie morgens um 9 Uhr aufstehen, wieviele ":LOCATE 9,4
  85.   PRINT "Stunden können Sie dann bis zum Klingeln schlafen ?":LOCATE 11,4
  86.   PRINT "(Eingabe : <x Std.> )"
  87.   IF q=1 THEN RETURN 
  88.   GOTO antw   
  89. frag2:
  90.   GOSUB frage
  91.   PRINT "Gibt es in England den 17.Juni ?":LOCATE 7,4
  92.   PRINT "(Eingabe : <ja> / <nein> )"
  93.   IF q=1 THEN RETURN
  94.   GOTO antw
  95. frag3:
  96.   GOSUB frage
  97.   PRINT "Wieviele Geburtstage hat ein 60-jähriger Mensch ?":LOCATE 7,4
  98.   PRINT "(Eingabe : <eine Zahl> )"
  99.   IF q=1 THEN RETURN
  100.   GOTO antw
  101. frag4:
  102.   GOSUB frage
  103.   PRINT "Einige Monate haben 30 Tage, andere 31 Tage.":LOCATE 7,4
  104.   PRINT "Wieviele Monate haben 28 Tage ?":LOCATE 9,4
  105.   PRINT "(Eingabe : <kurzes Wort> )"
  106.   IF q=1 THEN RETURN
  107.   GOTO antw 
  108. frag5:
  109.   GOSUB frage
  110.   PRINT "Der Arzt gibt Ihnen 3 Tabletten und sagt : Nehmen Sie jede halbe":LOCATE 7,4
  111.   PRINT "Stunde eine Tablette. Wielange reichen die Tabletten ?":LOCATE 9,4
  112.   PRINT "(Eingabe : <x Std.> )"
  113.   IF q=1 THEN RETURN
  114.   GOTO antw 
  115. frag6:
  116.   GOSUB frage
  117.   PRINT "Sie haben nur ein Streichholz und betreten einen Raum, in dem sich":LOCATE 7,4
  118.   PRINT "eine Karbidlampe,eine Öllampe und ein Kohleofen befinden.":LOCATE 9,4
  119.   PRINT "Was würden sie zuerst anzünden ?":LOCATE 11,4
  120.   PRINT "(Eingabe : <Gegenstand ohne Artikel> )"
  121.   IF q=1 THEN RETURN
  122.   GOTO antw  
  123. frag7:
  124.   GOSUB frage
  125.   PRINT "Ein Mann hat ein 4-eckiges, rechtwinkliges Haus. Jede Seite zeigt":LOCATE 7,4
  126.   PRINT "nach Süden. Welche Farbe hat ein Bär, der draußen vorbei kommt ?":LOCATE 9,4
  127.   PRINT "(Eingabe : <Farbe> )"
  128.   IF q=1 THEN RETURN
  129.   GOTO antw 
  130. frag8:
  131.   GOSUB frage
  132.   PRINT "Teilen Sie 30 durch 1/2 und zählen Sie 10 dazu.":LOCATE 7,4
  133.   PRINT "Wieviel ergibt das ?":LOCATE 9,4
  134.   PRINT "(Eingabe : <eine Zahl> )"
  135.   IF q=1 THEN RETURN
  136.   GOTO antw 
  137. frag9:
  138.   GOSUB frage
  139.   PRINT "Ein Bauer hat 17 Schafe.Alle sterben bis auf neun.":LOCATE 7,4
  140.   PRINT "Wieviele bleiben übrig ?":LOCATE 9,4
  141.   PRINT "(Eingabe : <eine Zahl> )"
  142.   IF q=1 THEN RETURN
  143.   GOTO antw    
  144. frag10:
  145.   GOSUB frage
  146.   PRINT "Ist es in der UdSSR erlaubt, daß ein Mann die Schwester seiner":LOCATE 7,4
  147.   PRINT "Witwe heiratet ?":LOCATE 9,4
  148.   PRINT "(Eingabe : <ja> / <nein> )"
  149.   IF q=1 THEN RETURN
  150.   GOTO antw
  151. frag11:
  152.   GOSUB frage
  153.   PRINT "Was war am 6.12.1945 ?":LOCATE 7,4
  154.   PRINT "(Eingabe : <ein Wort> )"
  155.   IF q=1 THEN RETURN
  156.   GOTO antw
  157. frag12:
  158.   GOSUB frage
  159.   PRINT "Wieviele 9er sind in den Zahlen 1 - 100 enthalten ?":LOCATE 7,4
  160.   PRINT "(Eingabe : <eine Zahl> )"      
  161.   IF q=1 THEN RETURN
  162.   GOTO antw
  163. frag13:
  164.   GOSUB frage
  165.   PRINT "Wenn ein Nachtwächter am Tage stirbt, bekommt er dann eine Rente ?":LOCATE 7,4
  166.   PRINT "(Eingabe : <ja> / <nein> )"
  167.   IF q=1 THEN RETURN
  168.   GOTO antw
  169. frag14:
  170.   GOSUB frage
  171.   PRINT "Kann ein Mann der westlich von New York, westlich vom":LOCATE 7,4
  172.   PRINT "Mississipi begraben sein ?":LOCATE 9,4
  173.   PRINT "(Eingabe : <ja> / <nein> )"
  174.   IF q=1 THEN RETURN
  175.   GOTO antw
  176. frag15:
  177.   GOSUB frage
  178.   PRINT "Wer kann sagen : Du bist mein Sohn, aber ich nicht dein Vater ?":LOCATE 7,4
  179.   PRINT "(Eingabe : <ein Wort ohne Artikel> )"
  180.   IF q=1 THEN RETURN
  181.   GOTO antw
  182. frag16:
  183.   GOSUB frage
  184.   PRINT "Ein Flugzeug stürzt auf der deutsch-italienischen Grenze ab.":LOCATE 7,4
  185.   PRINT "Wer muß das Wrack beseitigen ?":LOCATE 9,4
  186.   PRINT "(Eingabe : <ein Wort> )"
  187.   IF q=1 THEN RETURN
  188.   GOTO antw
  189. frag17:
  190.   GOSUB frage
  191.   PRINT "Ein Ochse steht mit den Vorderbeinen in der DDR,mit den ":LOCATE 7,4
  192.   PRINT "Hinterbeinen in der BRD. Wer bekommt die Milch ?":LOCATE 9,4
  193.   PRINT "(Eingabe : <ein Wort> )"
  194.   IF q=1 THEN RETURN
  195.   GOTO antw
  196. frag18:
  197.   GOSUB frage
  198.   PRINT "Berlin schreibt man am Anfang mit <B> und hinten mit <h> .":LOCATE 7,4
  199.   PRINT "Stimmt das ?":LOCATE 9,4
  200.   PRINT "(Eingabe : <ja> / <nein> )"
  201.   IF q=1 THEN RETURN
  202.   GOTO antw        
  203. frage:
  204.   CLS:COLOR 3,2:LOCATE 3,4
  205.   PRINT t;". Frage:":COLOR 1,2:LOCATE 5,4
  206.   RETURN  
  207. warte:  
  208.   d$=INKEY$
  209.   IF d$="" THEN RETURN
  210.   GOTO Haupt 
  211. antw:
  212.   TIMER ON
  213.   COLOR 4,2:LOCATE 17,4
  214.   PRINT "Antwort :":COLOR 1,2:LOCATE 19,4
  215.   PRINT "(Falls keine zur Hand ,<RETURN> drücken)":LOCATE 17,14
  216.   INPUT z$
  217.   TIMER OFF
  218.   IF t=1 GOTO auswert1 
  219.   IF t=2 GOTO auswert2
  220.   IF t=3 GOTO auswert3
  221.   IF t=4 GOTO auswert4
  222.   IF t=5 GOTO auswert5
  223.   IF t=6 GOTO auswert6
  224.   IF t=7 GOTO auswert7
  225.   IF t=8 GOTO auswert8
  226.   IF t=9 GOTO auswert9
  227.   IF t=10 GOTO auswert10
  228.   IF t=11 GOTO auswert11
  229.   IF t=12 GOTO auswert12
  230.   IF t=13 GOTO auswert13
  231.   IF t=14 GOTO auswert14
  232.   IF t=15 GOTO auswert15
  233.   IF t=16 GOTO auswert16
  234.   IF t=17 GOTO auswert17
  235.   IF t=18 GOTO auswert18
  236. auswert1:
  237.   a$="1 Std.":b$=a$:c$=a$
  238.   GOTO Haupt
  239. auswert2:
  240.   a$="ja":b$=a$:c$=a$
  241.   GOTO Haupt  
  242. auswert3:
  243.   a$="1":b$=a$:c$=a$
  244.   GOTO Haupt  
  245. auswert4:
  246.   a$="alle":b$="jeder":c$="zwölf"
  247.   GOTO Haupt  
  248. auswert5:
  249.   a$="1 Std.":b$=a$:c$=a$
  250.   GOTO Haupt  
  251. auswert6:
  252.   a$="Streichholz":b$=a$:c$=a$
  253.   GOTO Haupt  
  254. auswert7:
  255.   a$="weiß":b$=a$:c$=a$
  256.   GOTO Haupt
  257. auswert8:
  258.   a$="70":b$=a$:c$=a$
  259.   GOTO Haupt
  260. auswert9:
  261.   a$="9":b$=a$:c$=a$
  262.   GOTO Haupt
  263. auswert10:
  264.   a$="nein":b$=a$:c$=a$
  265.   GOTO Haupt
  266. auswert11:
  267.   a$="Nikolaus":b$=a$:c$=a$
  268.   GOTO Haupt
  269. auswert12:
  270.   a$="19":b$=a$:c$=a$
  271.   GOTO Haupt
  272. auswert13:
  273.   a$="nein":b$=a$:c$=a$
  274.   GOTO Haupt
  275. auswert14:
  276.   a$="nein":b$=a$:c$=a$
  277.   GOTO Haupt
  278. auswert15:
  279.   a$="Mutter":b$=a$:c$=a$
  280.   GOTO Haupt
  281. auswert16:
  282.   a$="niemand":b$="keiner":c$=a$
  283.   GOTO Haupt
  284. auswert17:
  285.   a$="niemand":b$="keiner":c$=a$
  286.   GOTO Haupt
  287. auswert18:
  288.   a$="ja":b$=a$:c$=a$
  289.   GOTO Haupt                         
  290. Zeitum:
  291.   CLS
  292.   FOR i=1 TO 20
  293.     FOR j=0 TO 6
  294.       COLOR j,2:LOCATE 7,10:PRINT "Ihre Zeit ist um !!!"
  295.       LOCATE 9,10:PRINT "Bitte warten !"
  296.     NEXT j
  297.   NEXT i
  298.   y=y+1
  299.   RETURN
  300. schl:
  301.   FOR i= 1 TO 100
  302.     FOR j=0 TO 6
  303.       COLOR j,2:LOCATE 21,10:PRINT "(wenn gelesen,bitte <Leertaste> drücken !)"
  304.       d$=INKEY$:IF d$=" " THEN RETURN
  305.     NEXT j
  306.   NEXT i
  307.   RETURN     
  308. aufloes:
  309.   CLS:q=1:GOSUB frag1:GOSUB richt1:GOSUB schl
  310.   CLS:GOSUB frag2:GOSUB richt2:GOSUB schl
  311.   CLS:GOSUB frag3:GOSUB richt3:GOSUB schl
  312.   CLS:GOSUB frag4:GOSUB richt4:GOSUB schl
  313.   CLS:GOSUB frag5:GOSUB richt5:GOSUB schl
  314.   CLS:GOSUB frag6:GOSUB richt6:GOSUB schl
  315.   CLS:GOSUB frag7:GOSUB richt7:GOSUB schl
  316.   CLS:GOSUB frag8:GOSUB richt8:GOSUB schl
  317.   CLS:GOSUB frag9:GOSUB richt9:GOSUB schl
  318.   CLS:GOSUB frag10:GOSUB richt10:GOSUB schl
  319.   CLS:GOSUB frag11:GOSUB richt11:GOSUB schl
  320.   CLS:GOSUB frag12:GOSUB richt12:GOSUB schl
  321.   CLS:GOSUB frag13:GOSUB richt13:GOSUB schl
  322.   CLS:GOSUB frag14:GOSUB richt14:GOSUB schl
  323.   CLS:GOSUB frag15:GOSUB richt15:GOSUB schl
  324.   CLS:GOSUB frag16:GOSUB richt16:GOSUB schl
  325.   CLS:GOSUB frag17:GOSUB richt17:GOSUB schl
  326.   CLS:GOSUB frag18:GOSUB richt18:GOSUB schl:CLS
  327.   FOR i=1 TO 12
  328.     FOR j=0 TO 6
  329.       COLOR j,2:LOCATE 10,10:PRINT "E N D E der Auflösungen"
  330.       LOCATE 13,10:PRINT "Nun kommt die Bewertung (grins)"
  331.     NEXT j
  332.   NEXT i
  333.   GOTO auswertung
  334. rian:
  335.   t=t+1:COLOR 4,2:LOCATE 13,4:PRINT "Die richtige Antwort wäre gewesen :"
  336.   COLOR 1,2:LOCATE 15,4:RETURN 
  337. richt1:
  338.   GOSUB rian  
  339.   PRINT " 1 Stunde (wenn Sie einen normalen Wecker mit 12-Stunden-":LOCATE 17,4
  340.   PRINT "Anzeige haben)":RETURN
  341. richt2:
  342.   GOSUB rian
  343.   PRINT " ja ":RETURN
  344. richt3:
  345.   GOSUB rian
  346.   PRINT "Er hat einen Geburtstag.":RETURN
  347. richt4:
  348.   GOSUB rian
  349.   PRINT "Alle Monate haben 28 Tage.":RETURN
  350. richt5:
  351.   GOSUB rian
  352.   PRINT " 1 Stunde (jetzt eine,1/2 Stunde später eine,1/2 Stunde später":LOCATE 17,4
  353.   PRINT "noch eine Tablette )":RETURN
  354. richt6:
  355.   GOSUB rian
  356.   PRINT " Streichholz ":RETURN
  357. richt7:
  358.   GOSUB rian
  359.   PRINT " weiß (denn es ist ein Eisbär,weil das Haus am Nordpol steht)":RETURN
  360. richt8:
  361.   GOSUB rian
  362.   PRINT " 70 (30 geteilt durch 1/2 ist 60,plus 10 ist 70)":RETURN
  363. richt9:
  364.   GOSUB rian
  365.   PRINT " 9 ":RETURN
  366. richt10:
  367.   GOSUB rian
  368.   PRINT " nein (denn der Mann ist bereits tot)":RETURN
  369. richt11:
  370.   GOSUB rian
  371.   PRINT " Nikolaus":RETURN
  372. richt12:
  373.   GOSUB rian
  374.   PRINT " 19 ":RETURN
  375. richt13:
  376.   GOSUB rian
  377.   PRINT " nein (denn ein Toter bekommt keine Rente)":RETURN
  378. richt14:
  379.   GOSUB rian
  380.   PRINT " nein (denn er lebt ja noch)":RETURN
  381. richt15:
  382.   GOSUB rian
  383.   PRINT " Mutter ":RETURN
  384. richt16:
  385.   GOSUB rian
  386.   PRINT " keiner (denn diese Grenze gibt es nicht)":RETURN
  387. richt17:
  388.   GOSUB rian
  389.   PRINT " keiner (denn ein Ochse gibt keine Milch)":RETURN
  390. richt18:
  391.   GOSUB rian
  392.   PRINT " ja ( <Berlin> schreibt man am Anfang mit <B> und ":LOCATE 17,4
  393.   PRINT " <hinten> schreibt man mit <h> !)":RETURN                                 
  394. auswertung:                 
  395.   CLS:u=0:COLOR 3,2:LOCATE 2,4:PRINT " A U S W E R T U N G : ":COLOR 1,2
  396. lo1:  
  397.   LOCATE 4,4 :PRINT "    0    Fehler  : Hochintelligent":COLOR 1,2
  398. lo2:  
  399.   LOCATE 6,4 :PRINT "  1 -  2 Fehler  : Intelligent":COLOR 1,2
  400. lo3:  
  401.   LOCATE 8,4 :PRINT "  3 -  4 Fehler  : Durchschnittlich Begabt":COLOR 1,2
  402. lo4:  
  403.   LOCATE 10,4:PRINT "  5 -  6 Fehler  : Leicht bekloppt":COLOR 1,2
  404. lo5:  
  405.   LOCATE 12,4:PRINT "  7 -  8 Fehler  : Ein wenig doof":COLOR 1,2
  406. lo6:  
  407.   LOCATE 14,4:PRINT "  9 - 10 Fehler  : Idiot":COLOR 1,2 
  408. lo7:  
  409.   LOCATE 16,4:PRINT " 11 - 12 Fehler  : Vollidiot":COLOR 1,2
  410. lo8:  
  411.   LOCATE 18,4:PRINT " 13 - 15 Fehler  : Anstaltsverdächtig":COLOR 1,2
  412. lo9:  
  413.   LOCATE 20,4:PRINT " 16 - 18 Fehler  : Nicht lebensfähig":COLOR 1,2
  414.   u=u+1:IF u=80 GOTO Fertig
  415.   COLOR 4,2:LOCATE 23,4
  416.   PRINT "Sie haben";p;" richtige und";n;" falsche Antworten gegeben !"
  417.   LOCATE 25,4:PRINT "Bitte warten !"
  418.   COLOR 3,2
  419.   IF n=0 GOTO lo1
  420.   IF n=1 OR n=2 GOTO lo2
  421.   IF n=3 OR n=4 GOTO lo3
  422.   IF n=5 OR n=6 GOTO lo4
  423.   IF n=7 OR n=8 GOTO lo5
  424.   IF n=9 OR n=10 GOTO lo6
  425.   IF n=11 OR n=12 GOTO lo7
  426.   IF n=13 OR n=14 OR n=15 GOTO lo8
  427.   IF n=16 OR n=17 OR n=18 GOTO lo9
  428. Fertig:
  429.   CLS:LOCATE 5,5
  430.   PRINT "Wir hoffen, dieser nicht ganz ernst zu nehmende Intelligenztest":LOCATE 7,5
  431.   PRINT "hat Ihnen wie uns viel Spaß bereitet."
  432.   FOR i=1 TO 25  
  433.     FOR j=0 TO 6
  434.       COLOR j,2:LOCATE 10,8:PRINT " Viele Grüße an :":COLOR 3,2
  435.                 LOCATE 13,5:PRINT "Thomas S.,Thomas G.,Reiner K.,"
  436.                 LOCATE 15,5:PRINT "The Rolling Fighters Nürnberg,"
  437.                 LOCATE 17,5:PRINT "und alle AMIGA-User in Bayern"
  438.                 LOCATE 19,5:PRINT "und im Ausland(z.B.Nord-Deutschland).":COLOR j,2
  439.                 LOCATE 22,8:PRINT "Jörg Karisch (Eagle) / T(ohne h)orsten Lang":COLOR 1,2
  440.                 LOCATE 24,5:PRINT "(kein Tastendruck !!)"
  441.     NEXT j
  442.   NEXT i
  443.   FOR i=27 TO 1 STEP-1
  444.     FOR j=1 TO 500:NEXT j
  445.     LOCATE i,1:PRINT"                                                                     " 
  446.   NEXT i
  447.   FOR i=1 TO 1500:NEXT i
  448.   WINDOW CLOSE 1
  449.   SCREEN CLOSE 1
  450.   SYSTEM                
  451.